home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tool-inc.zip
/
CAPSTR.INC
< prev
next >
Wrap
Text File
|
1989-07-08
|
252b
|
17 lines
procedure capstr(var s: string);
var
i: integer;
sp: boolean;
begin
sp := true;
stolower(s);
for i := 1 to length(s) do
begin
if sp then
s[i] := upcase(s[i]);
sp := s[i] = ' ';
end;
end;